home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / drucker / lpr / test.mod < prev    next >
Encoding:
Text File  |  1994-09-22  |  2.8 KB  |  81 lines
  1. MODULE Test;
  2. (* Modul zum Testen des Druckertreibers *)
  3.  
  4. FROM DruckTreiber IMPORT ConfigPrinter, PrintFormFeed, PrintSteuer,
  5.                          PrintString, PrintString4, PrintChar,
  6.                          SetLQ, PrintLn;
  7.  
  8. FROM FileName IMPORT filename, ClearFilename, GetDriveAndPath, 
  9.                      SelectFilename, compose;
  10.  
  11. FROM Application IMPORT Init, Terminate;
  12.  
  13. FROM AES IMPORT FormAlert;
  14.  
  15. FROM GEMDOS IMPORT PrnOS;
  16.  
  17. VAR Mask, Dname : filename;
  18.     Cfgname : ARRAY[0..79] OF CHAR;
  19.     Bstr : ARRAY[0..128] OF CHAR;
  20.     abbruch : BOOLEAN;
  21.     
  22. BEGIN
  23.   Init;
  24.   ClearFilename(Mask);
  25.   ClearFilename(Dname);
  26.   GetDriveAndPath(Mask);
  27.   Mask.ext:="CFG";
  28.   SelectFilename(Mask, Dname, abbruch );
  29.   IF NOT(abbruch) THEN
  30.     compose(Dname, Mask, Cfgname );
  31.     ConfigPrinter(3,Cfgname,"?");
  32.     Bstr:="[1][Drucker streikt!][ nochmal | später ]";
  33.     WHILE NOT(PrnOS() OR abbruch) DO
  34.       abbruch:=FormAlert(1,Bstr)=2;
  35.     END;
  36.     IF NOT(abbruch) THEN
  37.       PrintSteuer(1FH,-1); (* Horizontal Init. *)
  38.       PrintSteuer(20H,-1); (* Vertikal Init. *)
  39.       
  40.       PrintString4(28H,1AH,-1,-1,"Zeichentabelle:");
  41.       PrintString4(1BH,1,-1,-1," !");
  42.       PrintChar(42C); PrintString("#$%&'()*,-./0123456789:;<=>?");
  43.       PrintLn;
  44.       PrintString("@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"); PrintLn;
  45.       PrintString("`abcdefghijklmnopqsstuvwxyz{|}~"); PrintLn;
  46.       PrintString("ÇüéâäàåçêèïîìÄÅÉæÆôöòùùÿÖÜ¢£¥ßƒá"); PrintLn;
  47.       PrintString("íóúñѪº¿⌐¬Ω½¼¡«»ãõØøœŒÀÃÕ¨´†¶©®™"); PrintLn;
  48.       PrintString("ijIJבגדהוזחטיכלמנספצקרשתןךםףץ§∧∞"); PrintLn;
  49.       PrintString("αβΓπΣσµτΦΘΩδ∮ϕ∈∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²³¯"); PrintLn; PrintLn;
  50.       
  51.       PrintString4(28H,1AH,-1,-1,"Schnellschrift: "); PrintLn;
  52.       PrintString4(1BH,6,10,1AH,"Fettdruck, kursiv + unterstrichen");
  53.       PrintString4(7,11,1BH,-1," und wieder normal.");
  54.       PrintString4(1,0EH,-1,-1,"Umrißdruck");
  55.       PrintString4(0FH,12H,-1,-1," Superscript");
  56.       PrintString4(13H,16H,-1,-1," Subscript");  PrintSteuer(17H,-1);
  57.       PrintLn; PrintLn;
  58.       
  59.       SetLQ(TRUE);
  60.       PrintString4(28H,1AH,-1,-1,"Schönschrift:"); PrintLn;
  61.       PrintString4(1BH,6,10,1AH,"Fettdruck, kursiv + unterstrichen");
  62.       PrintString4(7,11,1BH,-1," und wieder normal.");
  63.       PrintString4(1,0EH,-1,-1,"Umrißdruck");
  64.       IF abbruch THEN END; (* Dummy-Statement wegen Compilerfehler *)
  65.       PrintString4(15,18,-1,-1," Superscript");
  66.       PrintString4(13H,16H,-1,-1," Subscript");  PrintSteuer(17H,-1);
  67.       PrintLn;
  68.       PrintString("Letzte Schönschriftzeile.");
  69.       
  70.       SetLQ(FALSE);
  71.       PrintLn; PrintSteuer(28H,-1);
  72.       PrintString("Schnellschrift."); PrintLn; 
  73.       PrintString("Was ist los?"); PrintLn; 
  74.       
  75.       PrintFormFeed;
  76.       PrintSteuer(21H,-1); (* Drucker Reset *) 
  77.     END;
  78.   END;
  79.   Terminate;
  80. END Test.
  81.